(Fplist_put): Preserve uneven tail data.

diff --git a/src/ChangeLog b/src/ChangeLog
index c69e579d70bbf30b37fc1985e23c93eca6eff5d2..8bc8f1a90560f7b7b598d24e4093509a489c579f 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-18  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * fns.c (Fplist_put): Preserve uneven tail data.
+
 2007-09-16  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * gtkutil.c (xg_get_image_for_pixmap): Always create a GdkPixbuf

diff --git a/src/fns.c b/src/fns.c
index 59cb2e3c9f6a22a541104062afa777e9089abab5..49db42a58acd94e85780d71179b8d3f64807281c 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2060,7 +2060,7 @@ The PLIST is modified by side effects.  */)
       prev = tail;
       QUIT;
     }
-  newcell = Fcons (prop, Fcons (val, Qnil));
+  newcell = Fcons (prop, Fcons (val, NILP (prev) ? plist : XCDR (XCDR (prev))));
   if (NILP (prev))
     return newcell;
   else